home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / mac / GUIDECON.DIR / 00023_Script_sc index < prev    next >
Text File  |  1996-02-29  |  922b  |  27 lines
  1. on mouseDown
  2.   -- button is hardwired for speed & to eliminate ambiguous behavior
  3.   
  4.   global gsGuideChannel
  5.   
  6.   set the castNum of sprite 16 to the number of cast "INDEX1"
  7.   updateStage
  8.   puppetSprite gsGuideChannel, FALSE      -- clear the old button
  9.   put 16 into gsGuideChannel
  10. end
  11.  
  12. on mouseUp
  13.   -- button is hardwired for speed & to eliminate ambiguous behavior
  14.   
  15.   global IndexLine, giWhichSubject, gbTOC
  16.   global gsFrameName  -- frame label of subject used to go get GUIDEART.DIR
  17.   
  18.   set the castNum of sprite 16 to the number of cast "INDEX2" -- hardwired to 16
  19.   updateStage
  20.   put "index1" into gsFrameName  -- entry point upon return from GUIDEART.DIR
  21.   go to "index1"
  22.   put EMPTY into giWhichSubject                 -- hardwired to EMPTY
  23.   set gbTOC = FALSE
  24.   set SubjectLine = 0
  25.   set IndexLine = 1                         -- resets index to start from beginning
  26.   GetIndexList
  27. end